home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / textfile.swg / 0032_TEXT TO EXE.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-10-28  |  859 b   |  38 lines
  1. {
  2. From: WALKING-OWL
  3. Subj: Re: TXT2COM
  4. }
  5.  
  6. program MakeMessage;
  7. const loader: array [0..14] of byte =
  8.       ($BE,$0F,$01,
  9.        $B9,$00,$00,
  10.        $FC,$AC,$CD,$29,$49,$75,$FA,$CD,$20);
  11. var fin,fout: file;
  12.     nin,nout: string;
  13.     buffer: array [0..4095] of byte;
  14.     i: word;
  15.  
  16. begin
  17.   writeln('"MakeMsg" v0.00');
  18.   if ParamCount<>2
  19.     then writeln('Usage: MAKEMSG textfile execfile')
  20.     else begin
  21.       nin:=ParamStr(1);
  22.       nout:=ParamStr(2);
  23.       Assign(fin,nin); reset(fin,1);
  24.       Assign(fout,nout); rewrite(fout,1);
  25.       i:=filesize(fin);
  26.       loader[4]:=lo(i);
  27.       loader[5]:=hi(i);
  28.       BlockWrite(fout,loader[0],15);
  29.       repeat
  30.         BlockRead(fin,Buffer[0],4096,i);
  31.         BlockWrite(fout,Buffer[0],i)
  32.       until i=0;
  33.       close(fin);
  34.       close(fout);
  35.       writeln('Done.')
  36.       end
  37. end.
  38.